my @array=(1..10);
print "@array\n";
foreach(@array){
shift (@array);
print "@array\n";
}