#!/usr/bin/perl
use strict;
use warnings;
my $str="30 30 36 33 36 36 36 33 36 34 26 24 21 17 17 23 27 27 31 31 34 33 33 33 36 36 37 38 38 38 38 38 35 40 34 34 34 31 37 36 37 37 40 40 49 40 40 40 40 40 40 40 40 33 30 30 30 30 30 42 45 45 45 45 45 49 42 42";
open (OUT,">format.out");
my @array=split(/ /,$str);

for (0..19){
	print OUT "$array[$_] ";
}
close(OUT);