Array Perl

  1. Home
  2. Perl
  3. Array
  4. Shift and Unshift
#!/usr/bin/perl
use warnings;
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";