Select Code to Download

my @tests = (
    [[2,7,11,15], 9, [0,1]],
...
    [[3,3], 6, [0,1]],
    [[3,3], 6, [1,0]],
);

for my $test (@tests) {
    is_deeply
        sort_arrayref(two_sum($test->[INPUT], $test->[TARGET])),
        sort_arrayref($test->[EXPECTED]);
}

sub sort_arrayref {
    my ($aref) = @_;

    return [ sort { $a <=> $b } @$aref ];
}

1..6
ok 1
...
ok 4
ok 5
ok 6