#!/usr/bin/perl
use warnings;
use strict;
use XML::Simple;

require 'test1.pl';

my $airlineLoc = "definitions/airline.csv";
my %hash;


@hash{'AirIATA'}=get_IATA($airlineLoc,'PGT');

my $letter1 = substr($hash{'AirIATA'},0,1);
my $letter2 = substr($hash{'AirIATA'},1,2);

print $letter1,"\n",$letter2,"\n";