I'm just guessing... but you could try something like this:

sort {
$field{$a}{'artist'} cmp $amigos{$b}{'artist'}
} keys %field;
[download]

I hope this work...

#!/usr/bin/perl -w
$tks = `mount`;
$jpsama = $! if $!;
print $jpsama;