#!/usr/local/bin/perl use strict; use warnings; my $num = 0; print "Hello\n"; print "$num\n"; my @data = (3,2,4); foreach (@data){ print "$_\n"; }