Use AnyData to build that data file.

#!/usr/local/bin/perl      use strict;   use AnyData;      my $table = adTie( 'CSV', 'example1.csv', 'c',                        {col_names=>'name,expires,nameserver'} );      while ( chomp($_ = <DATA>) ) {       my ( $name, $expires, $nameserver ) = split / /;       $table->{$name} = { expires => $expires, nameserver => $nameserver };   }      __DATA__   pair.com 17-aug-2012 NS1.PAIR.COM   pairnic.com 15-jun-2008 NS0.NS0.COM   pm.org 21-Aug-2005 NS.DEVELOOPER.COM   perlmonks.com 10-sep-2006 NS1.EASYDNS.COM   typepad.com 31-mar-2005 NS1.PAIRNIC.COM