my $line = (map scalar (<FH>),0..1)[1];