use warnings;
use strict;

my @swaps = swap(2, 3);
print "@swaps\n";

sub swap {
    my $k = shift; # 1st arg
    my $l = shift; # 2nd arg
    return $l, $k; # List of 2 args swapped
}

__END__

Prints:

3 2