some("Foo", \@alphabet);

sub some {
  my ($one, $alpha_aref) = @_;
  my $letter_b = $alpha_aref->[1];
}