use subs 'shift';

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