Select Code to Download

for (@somelist) {
    my($foo,$bar) = split;
...
    # this line won't work!!
    push @$somehash{$foo.$bar}, $x;
}