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

my $country  = 'Pakistan';
my $province = 'Punjab';
my $region   = 'Asia';

my $counter = 1;

my $sequenceid = substr $region, 0, 1;
$sequenceid   .= substr $country, 0, 2;
$sequenceid   .= substr $province, 0, 2;
$sequenceid   .= sprintf '%07d', $counter;

$sequenceid = uc $sequenceid;
print $sequenceid, "\n";