my $double = sub{ mult( 2, @_ ) }; my $doubled = $double->( 3 ); print $doubled; ## ouputs '6'