#!/usr/bin/perl
# Sample Perl file for testing
use strict;
use warnings;

print "Hello from FileDummy!
";

my @numbers = (1, 2, 3, 4, 5);
my $sum = 0;
foreach my $n (@numbers) {
    $sum += $n;
}
print "Sum: $sum
";

# Hash example
my %users = (
    Alice => 25,
    Bob   => 30,
    Charlie => 35,
);

while (my ($name, $age) = each %users) {
    print "$name is $age years old
";
}