#!/usr/bin/perl5

use strict;
use warnings;
use diagnostics;

# Load Module
use HLDS;

my @games=qw( cstrike dod czero gearbox ricochet dmc tfc valve );

foreach my $game (@games)
{
        my @maps_$game = HLDS::GameMaps("$game");
}