Select Code to Download

my $match =  "foo1\nfoo2\nfoo3\nfoo4\nfoo5\nfoo3\nfoo2";
print '$match = ', "\n", $match, "\n\n";
my @match_to_array = split /\n/, $match;
...
    }
}
print '@r = ', "@r";

$ perl  remove_duplicates.pl
$match =
...
@match_to_array = foo1 foo2 foo3 foo4 foo5 foo3 foo2

@r = foo1 foo2 foo3 foo4 foo5