sub forache { for my $v (1..@_-2) { $_[0] = $_[$v]; &{$_[-1]}(); } } 
my $k; forache $k, ("greetings, ", "all\n"), sub{ print $k; }; 
my @a = ("hello, ", "<name>", "\n"); forache $a[1], ("james", "andy", "bob", "david"), sub { print @a; };