#!/usr/bin/perl
use 5.10.0;
say for(1..10)