Select Code to Download

my %hash = ( artistsong1 => { 1 => 1, 3 => 1, 5 => 1 },
             artistsong2 => { 2 => 1, 4 => 1 } );
...
{
  print "yes, 1 does exist for artistsong1!\n";
}

my %hash = 
( 1 => artistsong1,
...
);
# to find where 1 is?
my $artistsong = $hash{1};