#!/usr/bin/perl

use strict;

use warnings;

my $input = $ARGV[0];

open(INPUT, "$input") || die "Oops!: Can't open file: $!\n";

my @inputfile = <INPUT>;

for(my $j = 0; $j < @inputfile; $j++)
{

    my $count = -127.5;
    my $value1 = 0;
    my $value2 = 0;

    my $checkvalue = substr($inputfile[$j], 0, 6);

    $value1 = $count -2.5;
    $value2 = $count + 2.5;

    print "$checkvalue $value1 $value2 \n";

	if(('$checkvalue' gt '$value1') &&
	   ('$checkvalue' le '$value2'))
	{
	    print "$checkvalue $value1 $value2\n";

	}
        
}