Array Perl

for ( $i = 1; $i <= 5; ++$i ) {
   push( @array, $i );            
   print "@array\n";              
}
while ( @array ) {
   $firstTotal += pop( @array );  # remove last element
   print "@array\n";              # display current @array
}
print "\$firstTotal = $firstTotal\n\n";