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