while (my $ptfkey = <F2>)