my @perm_names = qw(ATM_NO ATM_R ATM_W ATM_D ...);
my %perms;

@perms{@perm_names} = ( 'No access to ATMs',
                        'Read ATMs',
                        'Write ATMs',
                        'Modify ATMs',
                        ... );

for (@perm_names) {
  print "\nINSERT INTO permissions SET name='$_', description='$perms{$_}'\n";
}