You say:

print "What msisdn?";
chomp($var = <STDIN>);

@patterns = qw($var, $var1, $var2, $var3);

$var1 = "MSTerminating"
$var2 = "MSORIGINATING"
$var3 = "CallForwarding"
[download]

qw() does not interpolate, and you do not define $varn before forming @patterns. You should say:

print "What msisdn?";
chomp($var = <STDIN>);

$var1 = "MSTerminating"
$var2 = "MSORIGINATING"
$var3 = "CallForwarding"
@patterns = ($var, $var1, $var2, $var3);
[download]

After Compline,
Zaxo

Update: removed color from listings