Shell Programming and Scripting

#!/usr/bin/perl -w
use strict;
use Getopt::Std;

my $dir        = "/path/to/data"; # base directory
my @file;
my @line;
my $line;
my @groups;
my $groups;

open(FILE, "<$dir/$ARGV[0]") or die "Cannot open $ARGV[0] for read :$!";
@file = <FILE>;
close( FILE );

foreach (@file)
{
   chomp;
   @line =  split(/\:/, $_);
   @groups = split(' ', $line[1]);
   foreach (@groups) {
      print "$ARGV[0]:$line[0]:$_\n";
   }
}