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

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