Select Code to Download

    my %hash = map {
        my( $a, @b ) = split /\|/;
        defined $a ? ( $a => { @b } ) : ()
    } split /\n+/, $content;

    my @subhash_keys = qw( something another );
    my %hash = map {
...
        @b{ @subhash_keys } = @b;
        defined $a ? ( $a => \%b ) : ()
    } split /\n+/, $content;