#!/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 .. 10){ print "$_\n"; }