[user@localhost ~/bin]$ perl a.pl
peter took the 'C' key
james took the 'B' key
john took the 'A' key
luke took the 'C' key
andrew took the 'B' key
judas took the 'A' key
[user@localhost ~/bin]$ perl a.pl
peter took the 'C' key
james took the 'B' key
john took the 'A' key
Use of uninitialized value in concatenation (.) or string at a.pl line 23.
luke took the '' key
andrew took the 'C' key
judas took the 'B' key