@int=(1,3,5,2);
push(@int,10);
print "@int\n";
$last=pop(@int);
print "@int\n";
unshift (@int,0);
print "@int\n";
$start = shift(@int);
print "@int\n";