sub proto ($@) {
  print "$_[0]; $_[1..$#_]\n";
}

my @args = qw( a b c d e f );

proto($args[0], @args[1..$#args]);
proto(@args[0..$#args]);