Subroutine Perl

#!/bin/perl
my $subref = sub { print @_ ; };
&$subref('a','b','c');
print "\n";