my %main;
my $mfile = prompt( "Main file?" );

open MAIN, '<', $mfile  or die "$mfile: $!";

m[^([^\t]+)\t] and push @{ $main{ $1 } }, $_
    or die "Bad record in $mfile @ $." while <MAIN>;

close MAIN;
chomp @$_ for values %main;