Select Code to Download

use strict;
use warnings;
...
my $value = "foo"; #filename
$something{$key} = $value;
print $something{$key};

foo