#!/usr/local/bin/perl
use strict;
use warnings;
my %hash;
while(<DATA>){
        chomp;
        my ($name,$crowdReaction,$killerMove)=split /\|/;
        $hash{$name}=[] unless exists $hash{$name}; #to skip duplicate wrestlers names just in case.
        push @{$hash{$name}}, $crowdReaction,$killerMove;
        }
print "WRESTLER\tCrowd Reaction\tKiller Move\n";
print "_" x 50, "\n";

foreach my $name (sort keys %hash){
        for(my $i=0;$i< length(@{$hash{$name}});$i++){
                print "$name\t@{$hash{$name}}[$i]\t\t@{$hash{$name}}[++$i]\n";
                }

        }


__DATA__
The Rock|Cheer|Rock Bottom
Triple H|Boo|Pedigree
Stone Cold|Cheer|Stone Cold Stunner

##</code><code>##

WRESTLER	Crowd Reaction	Killer Move
__________________________________________________
Stone Cold	Cheer		Stone Cold Stunner
The Rock	  Cheer		Rock Bottom
Triple H	  Boo		  Pedigree