my @data;
while ( my $line = <STDIN> ) {
    chomp $line;
    last if $line eq '';  # nicht: ... if ! $line, da '0' zu FALSE evaluiert
    push @data, $line;
}