Select Code to Download

my %main_file=(
                  USER <= \@user_file,
                  TEST <= \@test_file,
                  TRIM <= \@trim_file,
                  );

push(@{$main_file{"USER"}[0]}, $string);

> perl -Mstrict -MData::Dumper -wE '
    my %main_file = ( USER => [ [], [], [] ] );
...
                    ]
        };
>