Select Code to Download

#!/usr/bin/perl -l
use strict;
...
    print "$number => $positions{$number}";
    print "Just print a number $number";
}

If an array element is a line number and a base together as a string:
1 => ACAC
...
Just print a number 1
4 => ACCA
Just print a number 4