Shell Programming and Scripting

#!/usr/bin/perl -w
use strict;

my $cur_dir = $ENV{PWD};
my $filename = $cur_dir."/file";
my ($record,@fields,$i,$j);

open(FILE,"<$filename") or die"open: $!";

while( defined( $record = <FILE> ) ) {
  chomp $record;
  @fields=split(/\t/,$record);
  foreach $i (split(/, /,$fields[0])) {
    foreach $j (split(/, /,$fields[1])) {
      print "$i\t$j\n";
    }
  }
}

close(FILE);

Ramush  First
Shyam   First
Mohan   First
Ram     Second
Ram     Fourth
Mohan   Second
Mohan   Fourth
Kaavya  Second
Kaavya  Fourth
Kavi    Third
Ram     Third
Shaym   Third
Mohan   Third

perl -F'\s{2,}' -lane'
  for $s (split /,\s/, $F[1]) {
    print join "\t", $_, $s  
      for split /,\s/, $F[0]
  }' infile

awk -F'   *' '{
  for (i = 0; ++i <= split($2, t, /, */);) 
    for (j = 0; ++j <= split($1, tt, /, */);)
      print tt[j], t[i]
  }' OFS='\t' infile