[jcw@linux fs]$ perl q.pl key=bert, val=5 key=chris, val=2 key=djw, val=1 [jcw@linux fs]$