#!/usr/local/bin/perl
use strict;
use warnings;

my $num = 0;
print "Hello\n";
print "$num\n";
#my @data = (3,2,4);
foreach my $data(1 .. 9){
    print "$data\n";
}