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