in reply to JAPH help needed.

I think that if you ask for help to the monks, you have to went to the monastery to obtain your help, so...

Your code
perl -lne'$x=$_;print "$. $_" if grep /^$x$/i, qw/just another hacker/
+' /usr/share/dict/words'

[download]
should be:
perl -lne'$x=$_;print "$. $_" if grep /^$x$/i, qw/just another hacker/
+'< /usr/share/dict/words

[download]
and this is the output in a Red Hat 7.1:
2040 another
19245 hacker
23151 just

[download]
This is the output of the JAPH in my Red Hat 7.1
perl -le'@a=qw/23151 19245 2040/;while(<>){chomp;push @b,$_ if grep {$
+.==$_} @a}push @b,$^X;print ucfirst join(" ",@b[2,0,3,1]).","'</usr/s
+hare/dict/words
Just another perl hacker,

[download]


Hopes 
$_=$,=q,\,@4O,,s,^$,$\,,s,s,^,b9,s,
$_^=q,$\^-]!,,print

[download]

In Section Seekers of Perl Wisdom