#!/usr/bin/env perl
# Sample Perl script — samplefiles.com
use strict;
use warnings;
use List::Util qw(sum);

my @customers = (
    { id => 1, name => 'Ada',   balance => 12500 },
    { id => 2, name => 'Grace', balance => 830.5 },
    { id => 3, name => 'Linus', balance => 10000 },
);

sub is_vip { my ($c) = @_; return $c->{balance} >= 10_000 }

for my $c (@customers) {
    printf "%-6s %10.2f %s\n", $c->{name}, $c->{balance}, is_vip($c) ? 'VIP' : '';
}
printf "Total: %.2f\n", sum(map { $_->{balance} } @customers);