#!/usr/bin/perl
use warnings;
use strict;

use Shared qw{ test_val test_list };

print test_val();

for my $pair (test_list()) {
    print "@$pair\n";
}