#!/usr/bin/perl
# your code goes here

#my @tab = (1000 .. 1010);
#$values = join("|", @tab[map {rand 10} @tab]);
#print($values);

#my $tab[$i] = map {int (rand(60)) };
my @tab2 = map {int rand(60)} (1..10);
print(join("|", @tab2));