RosettaCodeData/Task/Inverted-syntax/Perl/inverted-syntax-3.pl

sub assign { $_[1] = $_[0] }
$a = $b;       # Traditional syntax
assign $b, $a; # Inverted syntax