You had the right idea with the hashes. I personally would code it using a hash kind of like this:

$song{$chart_position}{TITLE} = 'Insomnia';
$song{$chart_position}{VISITOR_POS} = 10;
[download]

then, to sort by chart position:

for $pos ( sort { $a <=> $b } keys %song ) {
  print "$pos $song{$pos}{VISITOR_POS} $song{$pos}{TITLE}\n";
}
[download]

If you wanted to sort by the Visitor's position, play a few games with the sort

for $pos ( sort { $song{$a}{VISITOR_POS} <=> $song{$b}{VISISTOR_POS} }
+ keys %song ) {
  print "$pos $song{$pos}{VISITOR_POS} $song{$pos}{TITLE}\n";
}
[download]

and so on.

Mik
mikfire ( perlus bigotus maximus )