Array Perl

  1. Home
  2. Perl
  3. Array
  4. Push, pop, shift and unshift an array
#!/usr/bin/perl
use strict;
use warnings;
my @array = (1, 2, 3, 4, 5, 6);
push @array, '7';   
print "@array\n";   
my $last = pop @array; 
print "$last\n";   
unshift @array, -1, 0;
print "@array\n";  
shift @array;   
shift @array;   
print "@array\n";