| open(FILE, $filename) || die "Can't open $filename: $!\n"; | : | Open the file or end |
| foreach $key (sort keys(%arrayname)) { ... | : | Iterate over sorted array |
| chop($a = $b); | : | Trim last char after assignment |
| chomp; | : | Remove new-line |
| die if $@ if $@; | : | Propagate error message |