1:5 
2:5 
3:5 
4:5 
5:5 

##</code><code>##

open (IN, "myfile.txt") || die "couldn't open $!\n";
my @array;

while ( $line = <IN> ) {
 push @array, (split /\s+, $line )[0];
}

foreach $number(@array) {
  $number = ($number =~ s/://g);
}
print "@a[0]\n"