#!/usr/bin/perl

open(FH, "protein.txt");
@data = <FH>;
close(FH);
$cnt = 1;
@list = ();

for $line (@data){
  if($line =~ /^<name/ ){
    $line =~ s/<name>//;
    $line =~ s/<\/name>//;
    print "$cnt) $line";
    $cnt++;
    chomp($line);
    push(@list,$line);
  }
}

print "Select protein: ";
$selection = <STDIN>;

$item = $list[$selection-1];
print "You selected: $item\n";

exit;