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