print Data::Dumper->Dump([\%db, $starttime, $filename, $pageurl, 
        $exposure, $clicks],
        [qw(db starttime filename pageurl 
        exposure clicks)]);
__OUTPUT__

$db = {
    'key' => '6    fface.gif    http://www.go.com   19   8  4 '
      };
$starttime = '6';
$filename = 'fface.gif';
$pageurl = 'http://www.go.com';
$exposure = '19';
$clicks = '8';