my %main_file = (
    USER => [ [], [], [] ],
    TEST => [ [], [], [] ],
    TRIM => [ [], [], [] ],
);

##</code><code>##

my %main_file;
push @{ $main_file{USER}[0] }, $string;