perl -a010F -lpe "$_=join qq(\t),qq('$F[0]'),'=>',qq('$F[1]')"

##</code><code>##

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

while (<>) {
    chomp;
    my @columns = split /\t/;
    printf "'%s'\t'=>\t'%s'\n", @columns;
};