#!/usr/bin/env perl

use strict;
use warnings;

use Data::Dump;

my %hash;

while (<DATA>) {
    chomp;
    my ($value, $key) = split /\t/;
    push @{$hash{$key}}, $value;
} 

dd \%hash;

__DATA__
Obi Wan Jedi
Yoda    Jedi
Count Dooku Sith