Why not? To pick out the numbers, you could do this:

my @arr_data;
while (<>) {
    chomp;
    if (m/.+?(\d+?).?$/s) {
        push @arr_data, $1;
    }
}

my @assign_var = qw[AGC APC OAC CGA GAC CPA ACP CAO ACO BGH PHY ENG MA
+T]; # assumed parameters
my %hash_val;
@hash_val{@assign_var} = @arr_data;

print $_, ":", $hash_val{$_}, $/ foreach sort keys %hash_val;
[download]

Please note that the assumed parameter could also be gotten from within the while loop, it really depend on what you have to work with.
Hopes this helps