load columns items: % foreach my $show ( glob 'templates/data/items/*.html.ep' ) { % $show =~ s{^.+/([^/]+)\.html\.ep$}{$1}; % my $class = session('show') eq $show ? 'class=active' : ''; ><%= $show %> % } changes