#!usr/bin/perl -w
use strict;
use warnings;
use configs;
foreach my $tag (keys %instarray){
         print "$tag - $instarray{$tag} \n";
         }