Select Code to Download

my @resilt = ();
while (<fh>)
...
     
}
shift(@result);

push (@result, @a);
@result = grep { !$seen{$_}++ } @result;

sub get_first_elements_of_string
{
    my @a = (split (' ' ,"$_[0]"));     
    return $a[0];
}

sub get_first_elements_of_string {
    my ($first) = split ' ', $_[0], 2;     
    return $first;
    }