Select Code to Download

$key =~ /^LOGGED IN (\w+) GET/;
$key = $1;

$key =~ s/LOGGED IN //;
$key =~ s/ GET //;
$key =~ s/ POST //;
$key = $1;

foreach my $key (keys %seen) {
    my $col1_vals = $seen{$key}->{col1_vals};
    print "@$col1_vals\n";
}