Array Perl

  1. Home
  2. Perl
  3. Array
  4. Remove first element only and save it
#!/usr/bin/perl -w
@array = (1,2,3,4,5,6,7,8,9);
print "@array\n";
$offset = 0;  # first element
$length = 1;
($first) = splice(@array, $offset, $length);
print "@array\n";
print "First element: $first\n";