Select Code to Download

  tie %hash, 'MyHashClass', @files;
  my @data = $hash{$key};                # convienent!

package MyHashClass;
use strict;
...
  return @ret;
}
1;