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

for my $f (qw(a b)){
        print $f;
        warn ".";
}