while( <> ) {
    print {$fhs[ substr $_, 2, 1 ]}, $_;
}