#!/usr/bin/perl
use strict;
use warnings;
my $sentence = "abxcd zwe rrv";
my $wantedLetters = "tzxv";

my %required = map {$_ => 1} split //,$wantedLetters;
map delete $required{$_}, split //, $sentence;

if (keys %required) {
   print "required yet missing: ",keys %required,"\n";
   }
else {
   print "all requirements were met!\n";
   }