Select Code to Download

for my $emoticon (@emoticons) {
  my ($id, $name, $location, $face) = @$emoticon;
  # do your substitution, with the fixes already given
  # to you in other comments
}