in reply to sorting arrays

%unique;
@unique = grep({!$unique{$_->[0]}++} @parsed_file)

[download]
-- gam3
A picture is worth a thousand words, but takes 200K.

In Section Seekers of Perl Wisdom