one handed words (thing)

#!/usr/bin/perl -w 

$left = "qwertasdfgzxcvb"; 
$right = "yuiophjklnm"; 

open(F, "/usr/dict/words") or die "can't open dictionary!"; 

while( <F> ) { 
	chop; 
	push(@left, $_)  unless( /[$right]/io); 
	push(@right, $_) unless( /[$left]/io); 
} 

sub longest { length($b) <=> length($a); } 

@left = sort longest @left; 
@right = sort longest @right; 

print "left words:\n"; 
foreach (@left[0..9]){ print " $_\n"; } 
print "right words:\n"; 
foreach (@right[0..9]){ print " $_\n"; } 

Output:

left words:
exacerbates
exacerbated
reverberate
desegregate
vertebrates
exaggerates
exaggerated
aftereffect
aggravated
aggravates
right words:
Honolulu
monopoly
million
killjoy
opinion
Phillip
minimum
pumpkin
uplink
lookup