my %h = (); while (<$fh>) { $h{ $_ } ||= $.; } close $fh; print sort { $h{a} <=> $h{b} } keys %h;
-M
Free your mind
In reply to Re^2: To Hash or to Array--Uniqueness is the question.
by Moron
in thread To Hash or to Array--Uniqueness is the question.
by eff_i_g
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |