my @array = (
   [1,2,3],
   [4,5,6],
   [7,8,9],
);

my_subroutine($_) for @array;

sub my_subroutine {
   my $thing = shift;
   print $thing->[0];
}