#!/usr/bin/perl -w

use strict;

my @subs = ("_iata_city");


foreach my $sub(@subs) {
	$sub =~ s/^_//g;
	print $sub;;
}
foreach my $sub(qw/_iata_city/) {
	$sub =~ s/^_//g;
	print $sub;;	
}