@ARGV="/usr/share/dict/words";while(<>){$a='a';$a++while/$a/i;push@{$_[length]},$_ if$a gt'f'}@_=map{$_?@$_:()}@_
@ARGV="/usr/share/dict/words";while(<>){$a=a;$a++while/$a/i;push@{$_[y///c]},$_ if$a gt f}@_=map$_?@$_:(),@_