Help for this page

Select Code to Download

Select or download this

use subs 'shift';

...
  my $arr = $_[0];
  @$arr ? CORE::shift(@$arr) : ();
}