[perl] ???

#!/usr/bin/perl
my @array;
my @array=qw{
/abc
/def
/ghi
/qqq
};




my @array2=("aa","bb","cca","dd");

#($array[0],$array2[0])=($array2[0],$array[0]);
#(@array,@array2)=(@array2,@array);


for($i=0;$i<=$#array;$i++)
{
        ($array[$i],$array2[$i])=($array2[$i],$array[$i]);
        print "array[$i]=$array[$i]  ; array2=[$i]=$array2[$i]  \n"
        
}
@testsrc=undef;
pop(@testsrc);
push @testsrc,@array;
print "@testsrc\n";

print "=========\n";

shift @testsrc;
print "@testsrc\n";
unshift @testsrc,xxx;
print "@testsrc\n";

@a=qw[aaa bbb ccc];
@a=reverse @a;
foreach (@a)
{
        print "this is $_\n";
}
print "=========\n";
@b=qw[a c d b e l z k i u q a x];
@b=sort @b;
foreach (@b)
{
        print "this is $_\n";
}

#chomp(@string=<STDIN>);
#print "@@@@@@@@@@@@@@@@@@\n";

use 5.010;
#print "@string[0]\n";
sub callme
{
        state $s=0;
        $s+=$_[0];
        my $a=@_;
        print "call me function test $s\n"
}
print &callme(111,"222",333)."\n";
print &callme(111,"222",333)."\n";
print &callme(999,"222",333)."\n";