Select Code to Download

@num_list1=(34,2,65,345,987,23,12,45,62,100);
@num_list= sort {a <=> b} @num_list1;

#!/usr/bin/perl

...
    print " The key is $index\n";
}
else {print "key is not found";}