#!perl
use strict;
use warnings;
my $tmpstr = '';
$tmpstr = join ('|',@({0 .. 366} = '' x 366) ;
print $tmpstr;