# Silly really... but so easy!
sub myroutine { my ($a, $b, $c) = @_; routine( $a, $b, $c ); }