Array Perl

  1. Home
  2. Perl
  3. Array
  4. Shift array
#!/usr/bin/perl -w
use strict;
my @array = ();
unshift @array, "first";
print "Array is now: @array\n";
unshift @array, "second", "third";
print "Array is now: @array\n";
shift @array ;
print "Array is now: @array\n";