#!/usr/bin/perl
use warnings;
use strict;
use List::Util qw(max);

my $a=0.9; 
my $b=0.7; 
my $c=0.5;

  my $lar_value=max($a,$b,$c);
  print $lar_value, " is the greatest\n";