#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;

my ($number1, $number2, $number3) = <DATA>;

my $number = 5.13E-04;
my $other = "5.13E-04";

print "sum 1 = ", $number + $other;
print "\n";
print "sum 2 = ", $number1 + $number2 + $number3;

__DATA__
5.12E-04
5.12E+04
1