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

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

$var1 = "MSTerminating"
$var2 = "MSORIGINATING"
$var3 = "CallForwarding"

##</code><code>##

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

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