# arrays preserve order. => will be treated as a comma
@permissions = ('ATM_NO' => 'No access to ATMs',
                'ATM_R' => 'Read ATMs',
                'ATM_W' => 'Write ATMs',
                'ATM_M' => 'Modify ATMs',
                'ATM_D' => 'Delete ATMs',
                'ETM_NO' => 'No access to ETMs',
                'ETM_R' => 'Read ETMs',
                'ETM_W' => 'Write ETMs',
                'ETM_M' => 'Modify ETMs',
                'ETM_D' => 'Delete ETMs' );

my $index = 0;
while ($index < $#permissions-1) {
    ($perm_name, $perm_desc) = @permissions[$index,$index+1];
    print "\nINSERT INTO permissions SET name='$perm_name', description='$perm_desc'\n";
    $index += 2;
}