#!/usr/bin/perl
use strict;
use warnings;
my $red = 750e-9; # meters
my $violet = 380e-9;
my $distance = $red - $violet;
my $planck_length = 1.6e-35;
my $distinct_colors = $distance / $planck_length;
print "There are $distinct_colors distinct colors\n";