#!/usr/bin/perl 
use strict;
use warnings;

my $file1 = shift
open my $f1, '<', $file1;

my %codes;
my $name; 
my $length;

while (my $line = <$f1>)
{
    chomp $line;

    foreach ($line)
    {
        $codes{$name} = $length if defined $name;
        $name       = $1;
        #when name is present at least 4 times-- not sure how to represent this yet
        $length       >= 50 ; 
        #when length is greater than or equal to 50
    }
    {
      for my $name (sort { $name{$a} <=> $name{$b}} keys %codes) {
      print OUT > results.txt ;
    }
}