my %hash = 
( 1 => artistsong1,
  3 => artistsong1,
  5 => artistsong1,
  2 => artistsong2,
  4 => artistsong2,
  6 => artistsong3,
  7 => artistsong3
);
# to find where 1 is?
my $artistsong = $hash{1};