Help for this page
my %main_file = ( USER => [ [], [], [] ], TEST => [ [], [], [] ], TRIM => [ [], [], [] ], );
my %main_file; push @{ $main_file{USER}[0] }, $string;