sub read_data {
    my $file = shift;
    open FH, '<', $file or die "Cannot open ($file) for reading: $!";
    chomp (my @data = <FH>);
    close FH;
    return wantarray ? @data : \@data;
}