#!/usr/bin/perl -w 

use strict;

open(TEST, 'test.txt') || die "Couldn't open it";
print "\nFile Opened\n\n\n";
my $i=1;
my %list;
while(<TEST>){
    chomp;
    /(\w+)\s+(\w+)/;
    print "$i : $2\,$1\n";
    $list{$i} = [$1,$2];
    $i+=1;
}

foreach my $c (sort keys %list) {
    print "$list{$c}->[1],$list{$c}->[0]$/"}



close(TEST);
die "\n\n\nFile Closed\n";