Here is how i might do it:

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

my_subroutine($_) for @array;

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

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)