my @array;

open F, "$input_file" or die "Couldn't Open File: $!";
while (<F>) {
chomp;
( my ( $name, $num ) = split /	/, $_ ) ;
push (@array, $name);
}
	
foreach my $name (@array) {

}