Select Code to Download

good => [ 'ID3' ],
hello => [ 'ID1', 'ID3', 'ID2' ],
goodbye => [ 'ID1' ],
where => [ 'ID1' ]

use strict;
use warnings;

...
    print "'$mystr' in $id matches @matches\n";
  }
}

'hello' in ID1 matches ID3 ID2
'good' in 1D2 matches ID3