foreach my $emote_aref (@emoticons) {
    ($id, $name, $location, $face) = @$emote_aref;
...