use strict;
use warnings;

$5[$_] = 1 for 0..5;

print "@5\n";