open my $FH, '<', $data or die "Cannot open $data: $!";