gistfile1.pl

#!/usr/bin/env perl

use warnings; use strict; use Data::Dumper;

sub foo {
    my ($ref1, $ref2) = @_;
    my @arr1 = @{$ref1};
    my @arr2 = @{$ref2};
    print Dumper \@arr1;
    print Dumper \@arr2;
}

foo([1, 3, 5], [2, 4, 6]);