This could probably be simplified to:

```perl
my %keys = (W => $columns[0], M => $columns[1], L => $columns[2]);
```

But only because it looks a bit cleaner.