12th writing of insertion sort in perl

Bad.  Mostly language specific problem:
1, $i -> i
2, you can't do my $i,$j,$key, you can only do something like my ($i,$j,$key)

33_P