open FILE, '>', 'some_file' or die "Cannot open 'some_file' $!";

for my $line_counter ( 1 .. $in{ records } ) {
    print FILE $in{ "REPORTID_$line_counter" }, $in{ "COST_$line_counter" } * 100;
    }

close FILE;