> comment
10 12 18 20
21 25 27 38
40 41 43 50


##</code><code>##

while ( <INFILE> ) {
    next if ($_ =~ /^(\>)/);
    push @dat, $_;
}



##</code><code>##

@arr = (10, 12, 18, 20,21, 25, 27, 38,40, 41, 43, 50)

##</code><code>##

my @arr;
foreach (@dat) {
  my @a = split(//,$_);
  @arr =  (@arr, @a);
}