#!/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"; }