my @alphabet = ('A' .. 'Z');

some("Foo", @alphabet);

sub some {
  my ($one, @alpha) = @_;
}