sub myfunc {
    my ($file, $aref1, $aref2) = @_;
    my @array1 = @{ $aref1 };