Select Code to Download

    @$spr_hash{$file_name} = <FH>;

    @{$spr_hash{$file_name}} = <FH>;

use strict;
use warnings;
...
@$spr_hash{$file_name} = qw(1 2 3);

print Dumper [ %spr_hash ];