sub test{ print @_; }

## THIS DOESN'T WORK, BUT IF IT DID...
my $coderef = \&test( 'this is the argument' );

$coderef->(); # would print 'this is the argument' );

$coderef->( 'a different argument' ); 
# Would print 'this is the argument'!!


##</code><code>##

sub test{ print 'this is the argument'; }

my $coderef = \&test;

$coderef->(); # prints 'this is the argument' );

$coderef->( 'a different argument' ); 
# Prints 'this is the argument'!!


##</code><code>##

my $coderef = sub{ print @_; };
$coderef->( 'Some', 'args' );
# Prints 'someargs'