#!/usr/bin/env perl

use 5.012;
use warnings FATAL => 'all';

use List::MoreUtils qw/zip/;

my @cg   = (qw<one two three four five>);
my @gl   = (qw<two four five>);
my @csta = (qw<II  IV   V>);

my %gl_csta = (zip @gl, @csta);

printf "%5s => %s\n", $_, $gl_csta{$_} 
    for grep { exists $gl_csta{$_} } @cg;