sub test {
    ($arg1, $arg2, $arg3) = @_;

    print $arg1; # a
    print $arg2; # b
    print $arg3; # c
}
[download]