shift (@array);
splice (@array, 0, 1);
splice (@array, @array-1, 1);
splice (@array, scalar(@array), 0, @sublist);
splice (@array, 0, 0, @sublist);
pop (@array);
@array = (1,2,3); $scalar = $array[3]; print “$scalar”;
3
0
Error:Array value out of bound
Null value
@array = (10,30,20); sort(@array); print @array;'
10 20 30
10 30 20
30 20 10
1 2 3
. '@array = (“cat”, “rat”, “mat”); chop(@array); print @array;'
ca ra ma
cat rat ma
cat rat
cat rat mat
$string = "Hello World"; substr($string,6)="Perl"; print $string;
Hello Perl
Hello Perl World
Hello
Perl World
if(143 lt 34) { print “If is true”; } else { print “If is false”; }
If is true
If is false
Error
No output
@array = (1,2,3,4,5) $scalar1, $scalar2 = @array; print “Scalar1 value is $scalar1”; print “Scalar2 value is $scalar2”;
1 2
4 5
4 4
4 0
$scalar = (10,20,30); print $scalar;
10
20
30
@array = (100, 80, 70); @sort_arr = sort(@array); print @sort_arr;'
70 80 100
100 80 70
100 70 80