#!/usr/bin/perl

use strict;
use warnings;

while ( my $row = <DATA>) {
    print $row;
}

__DATA__
10.00
10.00
-30.00