Great code! I did notice however that it doesn't allow for
duplicate numbers :^(
So I revised it ever so slightly to be:

my $count = 0;
my %hash = map {$count++, $_} @array;
my @sort = sort { int($a) <=> int($b) } @array;

my $flag = 0;
for (keys %hash) {
    print ', ' if $flag++;
    print qq|"$hash{$_}" came from | . '$array[' . $_ . ']';
}
[download]