use Modern::Perl;
use Math::BaseCnv;

my $original = <<END;
17077.161362,-595,2619,-15202
17077.174405,601,2115,-14859
17077.187416,-816,1894,-15539
17077.200402,210,1790,-15284
17077.213445,1560,1721,-15457
17077.226432,1408,1483,-15834
17077.239474,947,1161,-17531
17077.252517,689,1396,-17515
17077.265504,-861,1206,-18238
17077.278547,-493,1369,-17951
17077.291589,850,1294,-17360
17077.304576,1110,1215,-17271
17077.317619,326,1055,-13948
17077.330662,1980,1083,-16239
17077.343648,1295,1057,-16154
17077.356691,-1302,1207,-16277
17077.369734,-1986,1216,-16537
17077.382721,-134,1108,-17409
17077.395763,-739,1059,-16734
17077.408774,-2262,1006,-16690
17077.421761,-807,1174,-17046
17077.434803,-591,1081,-17615
17077.447846,-2080,-5757,-21463
17077.460833,-209,-17608,-19409
END

my @original = split ' ', $original;

say for @{ b10to64( \@original ) };

sub b10to64 {
	my $original = $_[0];
	chomp @$original;

	for ( my $i = 0 ; $i < @$original ; $i++ ) {
		my @entries = split ',', $$original[$i];
		my ( $whole, $decimal ) = split '\.', $entries[0];
		$entries[0] = cnv( $whole, 10, 64 ) . '.' . cnv( $decimal, 10, 64 );
		$entries[$_] = cnv( $entries[$_], 10, 64 ) for 1 .. 3;
		$$original[$i] = ( join ',', @entries );
	}

	$original;
}