#!/user/bin/perl -w
use strict;
use warnings;

print "@{[$_/10]}\n" for 0 .. 9;
print "End!\n";