sub arg_test1 
{
    my $arg1 = shift;  # shift() defaults to @_
    my $arg2 = shift;

    return $arg1;
}

# Another way
sub arg_test2 
{
    my ($arg1, $arg2) = @_;

    return $arg1;
}

my $test1 = arg_test1(1, 2);
my $test2 = arg_test2(1, 2);