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

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

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

open(FILE, "output.abbazabba");
while (<FILE>) {
foreach $pat (@patterns) {
if ( /$pat[1]/ && /$pat[2]/) {
print "theselines";
if ( /$pat[1]/ && /$pat[3]/) {
print "theselines";
if ( /$pat[1]/ && /$pat[4]/) {
          }
        }
      }
    }
 }