perl -le '%h = ($$<<$$=>$$<=>$$<=$$>>$$); print $h{$_} for keys %h' 1