The quick fix to your problem is to change

  print "$array[\"$current\"]";
[download]

to

  print "$array[$current]";
[download]

since you really don't want to be escaping those quotes. Or, try

  print $array[$current];
[download]

since there's no need to stringify a value that is already a string.

The longer fix is to find one of the recipes for scanning mailbox files. The Perl Cookbook is an essential reference to have within reach when you're doing tasks like this.