#!/usr/bin/perl
use strict;
use warnings;
my $node = 65;

for my $i (1..$node-1){
    print "NODE SITE_$i\n";
    print "\tLABEL $i\n";
    my $n = 5 * ($i - 1);
    print "\tPOSITION CENTER_IMAGE ${n}r360\n\n";        
}

##</code><code>##

NODE SITE_1
        LABEL 1
        POSITION CENTER_IMAGE 0r360

NODE SITE_2
        LABEL 2
        POSITION CENTER_IMAGE 5r360

NODE SITE_3
        LABEL 3
        POSITION CENTER_IMAGE 10r360

...
NODE SITE_63
        LABEL 63
        POSITION CENTER_IMAGE 310r360

NODE SITE_64
        LABEL 64
        POSITION CENTER_IMAGE 315r360