Shell Programming and Scripting

#!/usr/bin/perl

use strict;
use warnings;

my %prefix_to_rate = (
    '93'  => "1.50",
    '6iii'  => "0.22"
);

my ( $shortest, $longest ) =
  ( sort { $a <=> $b } map { length } keys %prefix_to_rate )[ 0, 1 ];

for my $len ( reverse $shortest .. $longest ) {
        print  $prefix_to_rate{'93'};
}

my %hash = ();
open(FH,'1.txt') or die "$!";
while(<FH>){
   chomp;
   my @fields = split(/\t/);
   $hash{$fields[0]} = $fields[1];
}

my ( $shortest, $longest ) =
  ( sort { $a <=> $b } map { length } keys %hash )[ 0, 1 ];

for my $len ( reverse $shortest .. $longest ) {
        print  $hash{'93'};
}